home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / a / amftpv1.48.lha / AmFTP / Install_AmFTP < prev    next >
Text File  |  1996-02-03  |  13KB  |  320 lines

  1. ;******************************************************************************
  2. ;      ____           ______ ______ ______
  3. ;     / __ \         / ____//_  __// __  /
  4. ;    / /_/ /_   _   / /_     / /  / /_/ /
  5. ;   / __  // \_/ \ / __/    / /  / ____/
  6. ;  / / / // /__/ // /      / /  / /
  7. ; /_/ /_//_/  /_//_/      /_/  /_/
  8. ;
  9. ; $VER: 1.4d (Feb-01-1996) 
  10. ; Changes, suggestions or problems: rcr@netcom.com
  11. ; AmFTP Installer ©1995,1996 by Robert C. Reiswig 
  12. ;******************************************************************************
  13. ;*** System Stuff ***
  14. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  15. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  16. (set osver (/ (getversion "LIBS:version.library") 65536))
  17. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  18. (set fastmem (- totmem graphmem))
  19.  
  20. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  21. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  22. (if (= osver 41) (set workbench "4.0"))
  23.  
  24. (set cpu (database "cpu"))
  25. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  26. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  27. (if (= cpu 68040) (set #cpu 4)) 
  28. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  29.  
  30. (set vernum1 (getversion "AmFTP")) (set ver1 (/ vernum1 65536)) 
  31. (set rev1 (- vernum1 (* ver1 65536) ) ) (set AmFTPver (cat ver1 "." rev1))
  32.  
  33. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  34. (set lan 0)
  35.  
  36. (if (= "english"    lanfound) (set lan 0)) (if (= "deutsch"    lanfound) (set lan 1))
  37. (if (= "svenska"    lanfound) (set lan 2)) (if (= "suomi"      lanfound) (set lan 3))
  38. (if (= "français"   lanfound) (set lan 4)) (if (= "norsk"      lanfound) (set lan 5))
  39. (if (= "español"    lanfound) (set lan 6)) (if (= "Greek"      lanfound) (set lan 7)) 
  40. (if (= "nederlands" lanfound) (set lan 8)) 
  41. (if (> lan 8) (set lan 0))
  42.  
  43. (set #English    "English")  (set #Deutsch    "Deutsch")
  44. (set #Français   "Français") (set #Español    "Español")
  45. (set #Svenska    "Svenska")  (set #Nederlands "Nederlands")
  46. (set #Norsk      "Norsk")    (set #Suomi "Suomi")
  47. (set #Greek      "Greek")
  48.  
  49. (set mfound 0) (set newicon1 1) 
  50. (set keeper 1) (set firsttime 0)
  51.  
  52. ;********************************************************************
  53. ; English Strings
  54. ;********************************************************************
  55. (set #about (cat "\n\n\nWelcome to\n\nAmFTP " AmFTPver "\n\nCopyright © 1995 by\n\nMathias Mischler & Oliver Wagner\n") )
  56. (set #nomui (cat "\n\nAmFTP uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  57.                  "therefore you AmFTP will not work correctly.  You will need to install "
  58.                  "MUI before running AmFTP."
  59.             )
  60. )
  61. (set #whereAmFTP "Where do you wish to install AmFTP. A directory called 'AmFTP' will be created if one is not there. If a copy of AmFTP is found it will be backed up.")
  62. (set muiver "No Version Installed")
  63. (set #newermui "\n\nThe 68020 version of AmFTP needs version 3.0 or higher of MUI installed to work correctly.\n\n It looks like you have: \n\n")
  64. (set #need-os "\n\nThe 68020 version of AmFTP needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  65. (set #000used "\n\nThe 68000 version will be installed.") 
  66. (set #filethere1 "\n\nThe installer has found AmFTP version ")
  67. (set #filethere2 " at ")
  68. (set #filethere3 "\n\nThe file will be renamed to ")
  69. (set #filethere4 " and it will then be moved to ")
  70. (set #oktodelete1 "\nIs it ok to delete the older AmFTP binary so that the AmFTP Directory can be made?\n")
  71. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ AmFTP binary so that the AmFTP Directory can be made?\n")
  72. (set #backuptoXXX "Back-UP to file named 'AmFTP")
  73. (set #copyover "Copy Over Old Version")
  74. (set #AmFTPfound "\nThe Installer has found a copy of AmFTP already installed. What do you want to do?\n")
  75. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing AmFTP on? The installer has found:\n")
  76. (set #newicon "\nDo you wish to copy over one of the AmFTP Icons from the archive? If you have any ToolTypes already set you should select no.\n")
  77. (set #pickicon "\nAmFTP has a number of different icons you can choose from. Which one would you like to use?\n")
  78. (set #nomultiview (cat "The installer could not find multiview or you are running on a 2.0x Amiga. "
  79.                        "The AmFTP Installer will let you choose between a few different icon to use. "
  80.                        "You can use a picture viewer to look at the 'Icons/ftp_Icons.iff' to see the choices side-by-side, "
  81.                        "or you can just look in the Icon drawer from where you are installing AmFTP from."
  82.                   )
  83. )
  84. (set #nonewicon  "No  - ToolTypes already set.")
  85. (set #yesnewicon "Yes - Copy over Icon.")
  86. (set #whatcat "\nSelect the AmFTP Language catalog you wish to install.\n")
  87. (set #wherecat "\nWhere do you wish to install the AmFTP Language Catalog? Default is ")
  88. (set #catnofind "Can not find this catalog in this AmFTP archive. You may need to get the complete archive from the support site.")
  89. (set #whatdocs "\nWhat AmFTP documentation would you like to install?\n")
  90. (set #wheredocs "Where would you like the AmFTP documentation you selected to be installed?")
  91. (set #byebye (cat "\nAmFTP Install Complete!\n\n" ))
  92. ;********************************************************************
  93. ; Hello
  94. ;********************************************************************
  95. (message #about)
  96. (welcome) 
  97.  
  98. ;********************************************************************
  99. ; MUI installed?
  100. ;********************************************************************
  101. (if (< (exists "mui:") 2)  (message #nomui) )
  102.  
  103. ;********************************************************************
  104. ; Ask where to put AmFTP & Make dir if needed
  105. ;********************************************************************
  106. (set Package (getassign "AmiTCP"))
  107.   (if (= Package "") (set Package (getassign "Inet"))
  108. )
  109.  
  110. (set AmFTPdir  (askdir (prompt #whereAmFTP)
  111.                (help   #whereAmFTP)
  112.                     (default Package)
  113.                )  
  114. )
  115.  
  116. (set where AmFTPdir)
  117.  
  118. (if (= 1 (exists (tackon where "AmFTP") ) ) 
  119.   (
  120.     (set vernum1 (getversion (tackon where "AmFTP") ))
  121.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  122.     (set AmFTP_old (cat ver1 "." rev1))
  123.  
  124.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  125.                   (cat "AmFTP" AmFTP_old) #filethere4 (tackon AmFTPdir "AmFTP") )
  126.     )
  127.     
  128.  
  129.     (copyfiles (source (tackon where "AmFTP"))
  130.                (dest where) 
  131.                (infos)
  132.                (newname (cat "AmFTP" AmFTP_old))
  133.     )
  134.  
  135.     (delete (tackon AmFTPdir "AmFTP") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  136.  
  137.     (if (< (exists (tackon AmFTPdir "AmFTP")) 2) (makedir (tackon AmFTPdir "AmFTP") (infos)) )    
  138.  
  139.     (copyfiles (source (tackon where (cat "AmFTP" AmFTP_old) ))
  140.                        (dest (tackon AmFTPdir "AmFTP")) 
  141.                        (infos)
  142.                
  143.     )
  144.  
  145.     (delete (tackon where (cat "AmFTP" AmFTP_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  146.  
  147.     ;(set firsttime 1)
  148.  
  149.   )
  150. )
  151.  
  152. (if (< (exists (tackon AmFTPdir "AmFTP")) 2) (makedir (tackon AmFTPdir "AmFTP") (infos)) )
  153. (set where (tackon AmFTPdir "AmFTP"))
  154. (set @default-dest where)
  155.  
  156. ;********************************************************************
  157. ; Check for old & backup
  158. ;********************************************************************
  159. (if (exists (tackon where "AmFTP")) 
  160.   (
  161.       (set vernum1 (getversion (tackon where "AmFTP") ))
  162.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  163.       (set AmFTP_old (cat ver1 "." rev1))
  164.  
  165.       (set keeper  (askchoice (choices  (cat #backuptoXXX AmFTP_old "'")  #copyover)
  166.                      (prompt #AmFTPfound)
  167.                  (help   #AmFTPfound)
  168.                      (default 0)
  169.                )
  170.       )    
  171.  
  172.  
  173.       (if (= keeper 0)
  174.          (copyfiles (source (tackon where "AmFTP"))
  175.                      (dest where) 
  176.                      (infos)
  177.                      (newname (cat "AmFTP" AmFTP_old))
  178.          )
  179.       )          
  180.  
  181.       (set firsttime 1)
  182.     
  183.   )
  184. )
  185.  
  186. ;********************************************************************
  187. ; Copy over correct AmFTP and Icon if wanted
  188. ;********************************************************************
  189. (if (AND (> #cpu 1) (exists ("AmFTP020")) )
  190.    (copyfiles (source "AmFTP020") (dest where) (optional "nofail") (newname "AmFTP") )
  191.  
  192.    (copyfiles (source "AmFTP") (dest where) (optional "nofail") )
  193. )
  194.  
  195. ;(if (= firsttime 0)  (copyfiles (source "AmFTP.info") (dest where) (optional "nofail") ) )
  196.  
  197.  
  198. (if (OR (= keeper 0) (= firsttime 0))
  199.   (
  200.   
  201.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  202.                            (prompt #newicon)
  203.                        (help   #newicon)
  204.                            (default 0)
  205.             )
  206.    )
  207.  
  208.    (if (= newicon 0) 
  209.      (
  210.        (if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
  211.        (if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
  212.        (if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "Icons/ftp_Icons.iff")) )
  213.        (if (<> mfound 1) (message #nomultiview))
  214.  
  215.  
  216.        (set pickicon (askchoice (choices "AmFTP:  World/Disk, 3 Arrows"
  217.                                          "AmFTP2: Amiga w/WorldMap & Sel_Arrow"
  218.                                          "AmFTP3: Amiga w/Earth"
  219.                                 )
  220.                                 (prompt #pickicon)
  221.                                 (help   #pickicon)
  222.                                 (default 0)
  223.             )
  224.        )
  225.  
  226.  
  227.  
  228.      )
  229.    )
  230.  
  231.   
  232.    (if (= pickicon 0) (copyfiles (source "Icons/AmFTP.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  233.    (if (= pickicon 1) (copyfiles (source "Icons/AmFTP2.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  234.    (if (= pickicon 2) (copyfiles (source "Icons/AmFTP3.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  235.  
  236.   )
  237.  
  238. )
  239.  
  240. ;********************************************************************
  241. ; Select and copy over Catalog
  242. ;********************************************************************
  243. (set catalog (askchoice (choices #English #Deutsch #Svenska #Suomi #Français #Norsk #Español #Greek #Nederlands)
  244.                            (prompt #whatcat)
  245.                        (help   #whatcat)
  246.                            (default lan)
  247.              )
  248. )
  249.  
  250. (if (= catalog 0) (set #lcat #English )) (if (= catalog 1) (set #lcat #Deutsch))
  251. (if (= catalog 2) (set #lcat #Svenska))  (if (= catalog 3) (set #lcat #Suomi))
  252. (if (= catalog 4) (set #lcat #Français)) (if (= catalog 5) (set #lcat #Norsk))    
  253. (if (= catalog 6) (set #lcat #Español))  (if (= catalog 7) (set #lcat #Greek))
  254. (if (= catalog 8) (set #lcat #Nederlands))
  255.  
  256. (if (<> catalog 0)
  257.  (
  258.   (if (> (exists (cat "Catalogs/" #lcat "/AmFTP.catalog")) 0)
  259.     (
  260.         (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  261.                                   (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  262.                             (help   #wherecat)
  263.                                (default 0)
  264.                        )  
  265.         )
  266.  
  267.       (if (= wherecat 1)
  268.         (
  269.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  270.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  271.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  272.          (copyfiles (source (cat "Catalogs/" #lcat "/AmFTP.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  273.         )
  274.   
  275.         (
  276.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  277.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  278.          (copyfiles (source (cat "Catalogs/" #lcat "/AmFTP.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  279.         )
  280.       )
  281.  
  282.     )
  283.  
  284.     (message (cat "\nCatalogs/" #lcat "/AmFTP.catalog\n\n" #catnofind))
  285.   )
  286.  
  287.  
  288.  )
  289. )
  290.  
  291. ;********************************************************************
  292. ; Ask and and copy docs if wanted!
  293. ;********************************************************************
  294. (set docs (askoptions (choices "AmFTP.guide" "AmFTP.doc" "AmFTP.Changes")
  295.               (prompt #whatdocs)
  296.                       (help #whatdocs)
  297.                   (default 3)
  298.       )
  299. )
  300.  
  301. (if (<> docs 0)
  302.  (
  303.    (set docsdir (askdir (prompt #wheredocs)
  304.                (help   #wheredocs)
  305.                     (default where)
  306.                 )  
  307.    )
  308.  
  309.    (if (IN docs 0) (copyfiles (source "AmFTP.guide") (dest docsdir) (infos) (optional "nofail") ) )
  310.    (if (IN docs 1) (copyfiles (source "AmFTP.doc") (dest docsdir) (infos) (optional "nofail") ) )
  311.    (if (IN docs 2) (copyfiles (source "AmFTP.Changes") (dest docsdir) (infos) (optional "nofail") ) )
  312.  
  313.  )
  314. )
  315.  
  316. ;********************************************************************
  317. ; End Bye 
  318. ;********************************************************************
  319. (exit #byebye)
  320.